home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / program / euphor14.zip / BUZZ.EX < prev    next >
Text File  |  1996-04-05  |  2KB  |  90 lines
  1.     -- Buzzword Generator
  2.     -- Add your own phrases!
  3.  
  4. constant leadins = {
  5. "Unfortunately",
  6. "In the final analysis,",
  7. "For all intents and purposes",
  8. "We may definitely conclude that",
  9. "Leading industry analysts agree that",
  10. "Therefore",
  11. "Without a doubt",
  12. "According to the National Enquirer,",
  13. "It is rumoured that"
  14. }
  15.  
  16. constant subjects = {
  17. "Bill Clinton",
  18. "shareware",
  19. "The North American Free Trade Deal",
  20. "C++",
  21. "IBM",
  22. "multimedia PCs",
  23. "local bus video",
  24. "fax modems",
  25. "Euphoria",
  26. "Rapid Deployment Software",
  27. "Bill Gates",
  28. "Microsoft",
  29. "the Pentium processor",
  30. "pen-based computing",
  31. "the promised land of 21st century computing",
  32. "RISC machines",
  33. "object-oriented technology",
  34. "case tools",
  35. "Windows",
  36. "lap top computers",
  37. "notebook computers",
  38. "the World Wide Web",
  39. "the Information Super Highway"
  40. }
  41.  
  42. constant verbs = {
  43. "will no longer support",
  44. "can save",
  45. "will nibble away at the installed base of",
  46. "will be the downfall of",
  47. "will lead the way to",
  48. "will be like a cancerous growth in",
  49. "will destroy",
  50. "will make a mockery of",
  51. "will not be compatible with",
  52. "will be a great embarassment to"
  53. }
  54.  
  55. function buzz(integer n)
  56. -- generate a paragraph containing n sentences of pure nonsense
  57.     sequence paragraph
  58.  
  59.     paragraph = ""
  60.     for i = 1 to n do
  61.     paragraph = paragraph &
  62.             leadins [rand(length(leadins))]  & " " &
  63.             subjects[rand(length(subjects))] & " " &
  64.             verbs   [rand(length(verbs))]    & " " &
  65.             subjects[rand(length(subjects))] & ". "
  66.     end for
  67.     return paragraph
  68. end function
  69.  
  70. procedure display(sequence paragraph)
  71. -- neatly display a paragraph
  72.     integer column
  73.  
  74.     column = 1
  75.     for i = 1 to length(paragraph) do
  76.     puts(1, paragraph[i])
  77.     column = column + 1
  78.     if column > 65 and (paragraph[i] = ' ' or paragraph[i] = '-') then
  79.         puts(1, '\n')
  80.         column = 1
  81.     end if
  82.     end for
  83. end procedure
  84.  
  85. puts(1, "\n\t\tComputer Industry Forecast\n")
  86. puts(1, "\t\t--------------------------\n\n")
  87. display(buzz(8))
  88. puts(1, "\n\n")
  89.  
  90.